home *** CD-ROM | disk | FTP | other *** search
/ PC Home 48 / Fun Clicp Art 5000.iso / r / mbm / 00713_AC-RN.ls < prev    next >
Encoding:
Text File  |  1996-05-11  |  3.6 KB  |  116 lines
  1. on renseigne texte, nCurs
  2.   set the text of cast "ZIACC" to " "
  3.   set the text of cast "ZIACC" to texte
  4.   curseur(nCurs)
  5. end
  6.  
  7. on exitFrame
  8.   global gAcLabel
  9.   go(label(gAcLabel))
  10. end
  11.  
  12. on survol_Loc monBt
  13.   global gTraduit
  14.   if monBt = "QZ" then
  15.     renseigne(getAt(gTraduit, 14), 7)
  16.   else
  17.     if monBt = "OU" then
  18.       renseigne(getAt(gTraduit, 11), 1)
  19.     else
  20.       if monBt = "DE" then
  21.         renseigne(getAt(gTraduit, 4), 1)
  22.       else
  23.         if monBt = "TR" then
  24.           renseigne(getAt(gTraduit, 5), 7)
  25.         else
  26.           if monBt = "PH" then
  27.             renseigne(getAt(gTraduit, 7), 1)
  28.           else
  29.             if monBt = "CI" then
  30.               renseigne(getAt(gTraduit, 8), 7)
  31.             else
  32.               if monBt = "BI" then
  33.                 renseigne(getAt(gTraduit, 9), 7)
  34.               else
  35.                 if monBt = "SU" then
  36.                   renseigne(getAt(gTraduit, 3), 1)
  37.                 else
  38.                   if monBt = "DX" then
  39.                     renseigne(getAt(gTraduit, 13), 7)
  40.                   else
  41.                     if monBt = "MI" then
  42.                       renseigne(getAt(gTraduit, 10), 1)
  43.                     else
  44.                       if monBt = "TH" then
  45.                         renseigne(getAt(gTraduit, 6), 1)
  46.                       else
  47.                         renseigne(" ", -1)
  48.                       end if
  49.                     end if
  50.                   end if
  51.                 end if
  52.               end if
  53.             end if
  54.           end if
  55.         end if
  56.       end if
  57.     end if
  58.   end if
  59. end
  60.  
  61. on idle
  62.   global gBarChron, gSurvolAct, gSurvolPrec, gListSuj, gMessDef1, gMaxBoutons, gEtaSpir, gMessSty1, g1erSprChr, g1erSprNav, g1erSprLoc, gListCod, gEtudAct, gTraduit, g1ereFois, gCDpath, gZicPath, gIndSel
  63.   if the mouseDown = 0 then
  64.     set MsCast to the mouseCast
  65.     if MsCast > 0 then
  66.       if not gEtaSpir then
  67.         set gSurvolAct to 0
  68.         repeat with monSpr = g1erSprChr to gMaxBoutons
  69.           if rollOver(monSpr) and (the visible of sprite monSpr = 1) and ((monSpr < (g1erSprNav + 1)) or (monSpr >= g1erSprLoc)) then
  70.             set gSurvolAct to monSpr
  71.             exit repeat
  72.           end if
  73.         end repeat
  74.         if gSurvolAct <> gSurvolPrec then
  75.           if gSurvolAct <> 0 then
  76.             if (gSurvolAct >= g1erSprChr) and (gSurvolAct <= (g1erSprChr + 9)) then
  77.               renseigne(" ", 1)
  78.               gBarChron(survol, gSurvolAct, the number of cast "ZIACC")
  79.             end if
  80.             if gSurvolAct = g1erSprNav then
  81.               renseigne(getAt(gTraduit, 12), 7)
  82.             end if
  83.             if (gSurvolAct >= g1erSprLoc) and (gSurvolAct <= (g1erSprLoc + 10)) then
  84.               if the number of words in the name of cast MsCast = 2 then
  85.                 set monBt to chars(word 1 of the name of cast MsCast, 4, 5)
  86.                 survol_Loc(monBt)
  87.               end if
  88.             end if
  89.             if gSurvolAct = (g1erSprLoc + 14) then
  90.               renseigne(getAt(gTraduit, 108), 1)
  91.             end if
  92.             if gSurvolAct = (g1erSprLoc + 15) then
  93.               renseigne(getAt(gTraduit, 109), 7)
  94.             end if
  95.           else
  96.             gBarChron(fleche, 0, 1, 1)
  97.             renseigne(gMessDef1, -1)
  98.           end if
  99.         end if
  100.         set gSurvolPrec to gSurvolAct
  101.         updateStage()
  102.       else
  103.         if the number of words in the name of cast MsCast = 2 then
  104.           if (word 2 of the name of cast MsCast = "1") or (word 2 of the name of cast MsCast = "0") then
  105.             curseur(1)
  106.           else
  107.             curseur(-1)
  108.           end if
  109.         else
  110.           curseur(-1)
  111.         end if
  112.       end if
  113.     end if
  114.   end if
  115. end
  116.